HA$PBExportHeader$u_cst_manto_dw_mitemalma.sru
forward
global type u_cst_manto_dw_mitemalma from u_cst_manto_dw
end type
type uo_toolbarstrip from u_cst_toolbarstrip within u_cst_manto_dw_mitemalma
end type
end forward

global type u_cst_manto_dw_mitemalma from u_cst_manto_dw
integer height = 2000
uo_toolbarstrip uo_toolbarstrip
end type
global u_cst_manto_dw_mitemalma u_cst_manto_dw_mitemalma

on u_cst_manto_dw_mitemalma.create
int iCurrent
call super::create
this.uo_toolbarstrip=create uo_toolbarstrip
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.uo_toolbarstrip
end on

on u_cst_manto_dw_mitemalma.destroy
call super::destroy
destroy(this.uo_toolbarstrip)
end on

event resize;uo_toolbarstrip.Width = (this.width - 10) 
//uo_toolbarstrip.Height= (this.Height - 12) 

DW_1.width = newwidth - 10
DW_1.height = newheight - uo_toolbarstrip.height // - 100
DW_2.width = newwidth - 10
DW_2.height = newheight - uo_toolbarstrip.height //- 100

//DW_1.Resize(Width , Height  )
end event

type dw_2 from u_cst_manto_dw`dw_2 within u_cst_manto_dw_mitemalma
end type

type dw_1 from u_cst_manto_dw`dw_1 within u_cst_manto_dw_mitemalma
integer y = 96
integer width = 2647
integer height = 2008
string dataobject = "d_mitemalma_tabular"
boolean vscrollbar = true
end type

type uo_toolbarstrip from u_cst_toolbarstrip within u_cst_manto_dw_mitemalma
integer width = 2592
integer height = 100
integer taborder = 30
boolean bringtotop = true
end type

on uo_toolbarstrip.destroy
call u_cst_toolbarstrip::destroy
end on

event constructor;call super::constructor;this.of_AddItem('Agregar', 'Insert5!')
//this.of_setenabled('Quitar', false)
this.of_AddItem('Quitar', 'DeleteRow!')
//this.of_AddItem('Salir', 'Exit!')
this.of_DisplayText(true)

end event

event ue_buttonclicked;call super::ue_buttonclicked;integer li_fila
choose case upper(as_button)
	case 'AGREGAR'
		for li_fila = 1 to 50
			dw_1.insertrow( 0)
			dw_1.object.iditem[dw_1.rowcount()] = is_idcodigo
		next
	case 'QUITAR'
		   if dw_1.rowcount() <= 0 then return
		    dw_1.deleterow( 0)
	
END CHOOSE
end event

